home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tool-inc.zip / QUELIB.DCL < prev    next >
Text File  |  1989-06-02  |  360b  |  13 lines
  1. const
  2.    queue_size       = 3000;   {fixed size of all queues}
  3.    queue_high_water = 2700;   {maximum queue.count before blocking}
  4.    queue_low_water  = 2400;   {unblock queue at this point}
  5.  
  6. type
  7.    queue_rec = record
  8.       next_in:  integer;
  9.       next_out: integer;
  10.       count:    integer;
  11.       data:     array[1..queue_size] of char;
  12.    end;
  13.